home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / ansi1.zip / ANSI.LSP < prev    next >
Text File  |  1991-09-06  |  356b  |  13 lines
  1. (vmon)
  2. (defun C:ANSI ()
  3. (prompt "ANSI.LSP     Version 1.0     by Graham Company")
  4. (terpri)
  5.     (setvar "cmdecho" 0)
  6. (graphscr)
  7.     (command "layer" "m" "DIM" "c" "green" "")
  8.     (setq INPT (getpoint "\nPick insertion point "))
  9.     (setq TOL (getstring "\nEnter tolerance: "))
  10.     (setq DAT (getstring "\nEnter datum: "))
  11.     (menucmd "i=ansi")(menucmd "i=*")
  12. )
  13.